object ExtractForm: TExtractForm Left = 226 Top = 206 Width = 496 Height = 371 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMaximize] Caption = 'Extract' Color = clBtnFace ParentFont = True KeyPreview = True OldCreateOrder = True Scaled = False OnCreate = FormCreate OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ExtractToL: TLabel Left = 8 Top = 8 Width = 185 Height = 13 AutoSize = False Caption = 'E&xtract to:' FocusControl = Destination end object FolderDrivesL: TLabel Left = 227 Top = 56 Width = 121 Height = 13 AutoSize = False Caption = '&Folders/drives:' end object Bevel1: TBevel Left = 4 Top = 302 Width = 479 Height = 8 Shape = bsTopLine end object Destination: TComboBox Left = 8 Top = 24 Width = 441 Height = 21 ItemHeight = 13 TabOrder = 0 OnChange = DestinationChange end object FilesGroup: TGroupBox Left = 8 Top = 56 Width = 209 Height = 89 Caption = ' Files ' TabOrder = 2 object SelectedFiles: TRadioButton Left = 8 Top = 16 Width = 193 Height = 17 Caption = '&Selected files' TabOrder = 0 end object AllFilesButt: TRadioButton Left = 8 Top = 40 Width = 193 Height = 17 Caption = '&All files' TabOrder = 1 end object CFiles: TRadioButton Left = 8 Top = 64 Width = 57 Height = 17 Caption = 'F&iles:' TabOrder = 2 OnClick = CFilesClick end object FileSpec: TEdit Left = 64 Top = 62 Width = 137 Height = 21 TabOrder = 3 Text = 'FileSpec' OnEnter = FileSpecEnter end end object treelist: TFolderTree Left = 227 Top = 72 Width = 254 Height = 195 Active = True FolderOptions = [foNetworkNeighborhood] OnChange = TreeListChange Indent = 19 ParentShowHint = False ShowHint = False TabOrder = 4 end object ExplorerButt: TButton Left = 457 Top = 24 Width = 25 Height = 21 Caption = '->' TabOrder = 1 OnClick = ExploreButtClick end object NewFolderButt: TButton Left = 381 Top = 272 Width = 99 Height = 25 Caption = '&New Folder...' TabOrder = 5 OnClick = NewFolderButtClick end object ExtractButt: TButton Left = 247 Top = 309 Width = 75 Height = 25 Caption = '&Extract' Default = True TabOrder = 6 OnClick = ExtractButtClick end object CancelButt: TButton Left = 327 Top = 309 Width = 75 Height = 25 Caption = '&Cancel' TabOrder = 7 OnClick = CancelButtClick end object HelpButt: TButton Left = 409 Top = 309 Width = 75 Height = 25 Caption = '&Help' TabOrder = 8 OnClick = HelpButtClick end object ElGroupBox1: TGroupBox Left = 8 Top = 162 Width = 209 Height = 89 Caption = ' Options ' TabOrder = 3 object OverwriteExisting: TCheckBox Left = 8 Top = 16 Width = 193 Height = 17 Caption = '&Overwrite existing files' TabOrder = 0 end object UseFolderNames: TCheckBox Left = 8 Top = 40 Width = 193 Height = 17 Caption = 'Do not extract &pathnames' TabOrder = 1 end object CheckBox1: TCheckBox Left = 8 Top = 64 Width = 193 Height = 17 Caption = 'Open fol&der after extracting' TabOrder = 2 end end object FormPlacement1: TFormPlacement MinMaxInfo.MinTrackHeight = 373 MinMaxInfo.MinTrackWidth = 498 UseRegistry = True Left = 224 Top = 72 end object FormStorage1: TFormStorage Options = [fpActiveControl] UseRegistry = True StoredProps.Strings = ( 'OverwriteExisting.Checked' 'UseFolderNames.Checked' 'CheckBox1.Checked') StoredValues = <> Left = 256 Top = 72 end end